home *** CD-ROM | disk | FTP | other *** search
/ Future Workshop / Future Workshop.iso / utility / formula1 / vcform1.3 / VB4 / FORMAT2 / PALETTE1.TXT < prev    next >
Encoding:
Text File  |  1995-09-15  |  2.0 KB  |  65 lines
  1. Attribute VB_Name = "Palette1"
  2. Option Explicit
  3.  
  4. Sub ChangeToPalette1(SS As Object)
  5.    
  6.    With SS
  7.       .PaletteEntry(1) = 8919522
  8.       .PaletteEntry(2) = 3326144
  9.       .PaletteEntry(3) = 688138
  10.       .PaletteEntry(4) = 16777215
  11.       .PaletteEntry(5) = 8388736
  12.       .PaletteEntry(6) = 13238272
  13.       .PaletteEntry(7) = 12632128
  14.       .PaletteEntry(8) = 16579809
  15.       .PaletteEntry(9) = 11150335
  16.       .PaletteEntry(10) = 65535
  17.       .PaletteEntry(11) = 49152
  18.       .PaletteEntry(12) = 6299830
  19.       .PaletteEntry(13) = 12599488
  20.       .PaletteEntry(14) = 16711680
  21.       .PaletteEntry(15) = 16776960
  22.       .PaletteEntry(16) = 13816530
  23.       .PaletteEntry(17) = 10526975
  24.       .PaletteEntry(18) = 12648447
  25.       .PaletteEntry(19) = 65280
  26.       .PaletteEntry(20) = 16761024
  27.       .PaletteEntry(21) = 16711935
  28.       .PaletteEntry(22) = 16744576
  29.       .PaletteEntry(23) = 16777152
  30.       .PaletteEntry(24) = 11579568
  31.       .PaletteEntry(25) = 8421631
  32.       .PaletteEntry(26) = 3318015
  33.       .PaletteEntry(27) = 9109428
  34.       .PaletteEntry(28) = 14480860
  35.       .PaletteEntry(29) = 16744703
  36.       .PaletteEntry(30) = 16757940
  37.       .PaletteEntry(31) = 14737568
  38.       .PaletteEntry(32) = 8421504
  39.       .PaletteEntry(33) = 255
  40.       .PaletteEntry(34) = 33023
  41.       .PaletteEntry(35) = 705488
  42.       .PaletteEntry(36) = 10542827
  43.       .PaletteEntry(37) = 11771101
  44.       .PaletteEntry(38) = 16729740
  45.       .PaletteEntry(39) = 15769600
  46.       .PaletteEntry(40) = 6316128
  47.       .PaletteEntry(41) = 192
  48.       .PaletteEntry(42) = 27102
  49.       .PaletteEntry(43) = 38560
  50.       .PaletteEntry(44) = 5277612
  51.       .PaletteEntry(45) = 8020640
  52.       .PaletteEntry(46) = 13514090
  53.       .PaletteEntry(47) = 12615680
  54.       .PaletteEntry(48) = 4210752
  55.       .PaletteEntry(49) = 329088
  56.       .PaletteEntry(50) = 20608
  57.       .PaletteEntry(51) = 6579210
  58.       .PaletteEntry(52) = 4349582
  59.       .PaletteEntry(53) = 6299776
  60.       .PaletteEntry(54) = 8388704
  61.       .PaletteEntry(55) = 7340032
  62.       .PaletteEntry(56) = 0
  63.    End With
  64. End Sub
  65.